home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / xes.lha / XES / S / print.xrc < prev    next >
Text File  |  1995-08-23  |  2KB  |  35 lines
  1. # $VER: print.xrc 1.1 (23 Aug 1995)
  2. loadgtbproject pr XES:GUI/Print.gui
  3.  
  4. #Defaults
  5. set _hf () set _h0 () set _h1 ()
  6. set _ff (@C- #d -) set _f0 (@C- #d -) set _f1 (@C- #d -)
  7. set _N () set _t 4 set _b 57 set _p 1 set _l 8 set _r 65 set _Tl 0
  8.  
  9. #Macros
  10. setmacro gtb-print 0 (setheaders setfooters setmargins setmisc opengtbwindow pr pr)
  11. setmacro setheaders 0 (setgtbgadget pr pr hf \$_hf setgtbgadget pr pr h0 \$_h0 setgtbgadget pr pr h1 \$_h1)
  12. setmacro setfooters 0 (setgtbgadget pr pr ff \$_ff setgtbgadget pr pr f0 \$_f0 setgtbgadget pr pr f1 \$_f1)
  13. setmacro setmargins 0 (setgtbgadget pr pr t \$_t setgtbgadget pr pr b \$_b setgtbgadget pr pr l \$_l setgtbgadget pr pr r \$_r)
  14. setmacro setmisc 0 (setgtbgadget pr pr N \$_N setgtbgadget pr pr p \$_p setgtbgadget pr pr Tl \$_Tl)
  15. setmacro print-save 1 (closegtbwindow pr pr rx1 XES:REXX/Paginate \$arg1)
  16.  
  17. #Gadgets
  18. setmacro pr-pr-hf 1 (settvar _hf (\$arg1))
  19. setmacro pr-pr-h0 1 (settvar _h0 (\$arg1))
  20. setmacro pr-pr-h1 1 (settvar _h1 (\$arg1))
  21. setmacro pr-pr-ff 1 (settvar _ff (\$arg1))
  22. setmacro pr-pr-f0 1 (settvar _f0 (\$arg1))
  23. setmacro pr-pr-f1 1 (settvar _f1 (\$arg1))
  24. setmacro pr-pr-N 1 (settvar _N (\$arg1))
  25. setmacro pr-pr-t 1 (settvar _t (\$arg1))
  26. setmacro pr-pr-b 1 (settvar _b (\$arg1))
  27. setmacro pr-pr-p 1 (settvar _p (\$arg1))
  28. setmacro pr-pr-l 1 (settvar _l (\$arg1))
  29. setmacro pr-pr-r 1 (settvar _r (\$arg1))
  30. setmacro pr-pr-Tl 1 (settvar _Tl (\$arg1))
  31. setmacro pr-pr-save 1 (reqfile (Save to File) () () print-save \$reqresult)
  32. setmacro pr-pr-append 1 (reqfile (Append to File) () () print-save >\$reqresult)
  33. setmacro pr-pr-print 0 (print-save PRT:)
  34. setmacro pr-pr-preview 0 (print-save t:text2 execute (more t:text2) execute (delete t:text2))
  35.